home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Micro on the Apple Volume 2 (1981)(Micro Ink).zip / Micro on the Apple Volume 2 (1981)(Micro Ink).do / TRACE LIST.int < prev    next >
Text File  |  1996-12-24  |  3KB  |  57 lines
  1. 29970 REM  ************************
  2. 29971 REM  *                      *
  3. 29972 REM  *  TRACE LIST UTILITY  *
  4. 29973 REM  *    BY ALAN G. HILL   *
  5. 29974 REM  *                      *
  6. 29975 REM  *      TRACE LIST      *
  7. 29976 REM  *                      *
  8. 29977 REM  *  COPYRIGHT (C) 1981  *
  9. 29978 REM  *    MICRO INK, INC.   *
  10. 29979 REM  * CHELMSFORD, MA 01824 *
  11. 29980 REM  *  ALL RIGHTS RESERVED *
  12. 29981 REM  *                      *
  13. 29982 REM  ************************
  14. 29983 REM 
  15. 29984 REM 
  16. 29985 PRINT :PRINT "'RUN 31000' APPEND":PRINT "'RUN 30000' REAL-TIME LIST":PRINT "'RUN 32000' POST-EXEC SETUP"
  17. 29986 PRINT "'GOTO 32020' POST-EXEC LIST":VTAB 20:INPUT "'RETURN' WHEN READY TO APPEND",A$
  18. 29990 PRINT "<CTRL-D>BLOAD TRACE INTERRUPT":REM  ** NOT IN TEXT LISTING **
  19. 29995 GOTO 31000
  20. 29998 REM  'RUN 30000' REAL-TIME
  21. 30000 NO TRACE : POKE 54,768 MOD 256: POKE 55,768/256: POKE 19,0: POKE 20,0: POKE 787,76: POKE 788,211: POKE 789,3: POKE 790,234:CALL -22447
  22. 30004 PRINT "ENABLE TRACE IN YOUR PROGRAM":PRINT "AND 'RUN'."
  23. 30005 REM  TRACE VER1.0 11-28-78
  24. 30006 REM  TRACE VER1.1 3-6-79
  25. 30007 REM  ADD DISK APPEND CAPABILITY
  26. 30010 CALL 945:END 
  27. 30020 EXECLINE=TR(0):IF EXECLINE#0 THEN 30050
  28. 30030 IF RRRRR=1 THEN 30070
  29. 30040 RRRRR=1:GOTO 30060
  30. 30050 RRRRR=0
  31. 30060 LIST EXECLINE
  32. 30070 IF  PEEK (-16287)>127 THEN 30070
  33. 30075 IF EXECLINE=0 THEN 30090
  34. 30080 FOR JJJJJ=1 TO 150:NEXT JJJJJ
  35. 30090 CALL 954:REM   BACK TO TEST PGM
  36. 30100 END 
  37. 31000 DIM A$(30)
  38. 31001 VTAB 24
  39. 31002 INPUT "APPEND ",A$
  40. 31005 IF A$#"" THEN 31030
  41. 31010  POKE 0, PEEK (76): POKE 1, PEEK (77): POKE 76, PEEK (202): POKE 77, PEEK (203):CALL -3873: POKE 76, PEEK (0): POKE 77, PEEK (1):END 
  42. 31030  POKE 0, PEEK (76): POKE 1, PEEK (77): POKE 76, PEEK (202): POKE 77, PEEK (203):PRINT "<CTRL-D>LOAD ";A$;",V": POKE 76, PEEK (0): POKE 77, PEEK (1)
  43. 31031 PRINT "'RUN 30000' REAL-TIME":PRINT "'RUN 32000' POST TIME":END 
  44. 31999 REM  'RUN 32000' POST-EXEC
  45. 32000  POKE 54,768 MOD 256: POKE 55,768/256: POKE 19,0: POKE 20,0: POKE 787,169: POKE 788,127: POKE 789,133: POKE 790,5:CALL -22447
  46. 32010 PRINT "TRACE SET UP. ENABLE TRACE IN YOUR PGM":END 
  47. 32020 NO TRACE : POKE 54,240: POKE 55,253:IF  PEEK (20)#0 THEN 32030:PRINT "TRACE NOT ON IN YOUR PGM":GOTO 32090
  48. 32030 CALL -936:FOR I=100 TO 1 STEP -1:IF TR(I)=-1 THEN 32060
  49. 32040 LIST TR(I)
  50. 32050 IF  PEEK (37)>18 THEN 32090
  51. 32060 NEXT I
  52. 32070 GOTO 32090
  53. 32080 CALL -936:IF I>1 THEN 32060
  54. 32090 PRINT :PRINT "C/T/E ?"
  55. 32100 KEY= PEEK (-16384):IF KEY<128 THEN 32100: POKE -16368,0:IF KEY=212 THEN 32000:IF KEY=195 THEN 32080:END 
  56. 65535 REM    TRACE LIST UTILITY              BY ALAN G. HILL           COMMERCIAL RIGHTS RESERVED
  57.